ASM- Probleme mit dem Abspeichern

Ich habe gerade ein Problem, wo ich nicht weiterkomme. Eine Datei, die ich problemlos öffnen und lesen kann, möchte ich nun auch wieder beschreiben. Dazu nutze ich folgenden Code (von @Dietrich) zum Öffnen der entsprechenden Datei:

    ldx #kanal*16   ; Kanalnr. * 16 in X-Register setzen
    lda #3
    sta iccmd,x     ; CIO-Kommando 3 = Open
    lda <fname
    sta icadr,x     ; icadr muss auf fname ziegen
    lda >fname
    sta icadr+1,x
    lda #8          ; AUX1=4 für Open read (8 für write, 12 für update)
    sta icaux,x
    jsr ciov        ; CIO aufrufen
    bmi error       ; Returncode prüfen (steht in Y und icsta)
    rts
error
    sty 712 ;Fehler auch "sehen können"
    jmp *

Dateiname ist dieser und er funktioniert auch ohne Probleme beim Laden aus der Datei:

fname   .byte "D1:SCORES",eol           ;filename to operate with

Egal, ob ich nun @Dietrich´s uDOS oder DOS 2.5 nehme, es kommt schon hier beim Öffnen für write der Fehler 130 (NOT EXISTENT DEVICE) Muss man doch mehr machen um eine Datei zum Schreiben zu öffnen als nur die #4 nach #8 zu ändern vor sta icaux,x? Ach so, auch das Öffnen eines 2. Kanals zum Schreiben hat nichts gebracht, auch nicht, gleich am Anfang mal statt zum Lesen, zum Schreiben zu öffnen - immer ERROR 130. Anfangs dachte ich der Dateiname wäre schuld, da ich nur D: dort stehen hatte, D1: bringt aber auch nichts.

Edit: Ach so, kanal ist natürlich definiert (=1), genauso, wie alle Systemadressen.

DjayBee schrieb: Fehlt da nicht ein #?

lda fname

lda #fname

Wie ich vermutet und auch eigentlich immer erlebt habe, ist es das nicht. MADS setzt definitiv beide Male den korrekten LDA Befehl ein ($a9). Diese low/high mnemonic kann man da also definitiv ohne # nutzen und es wird immer so assembliert.

Der Emulator ist Altirra. Das atr habe ich extra mit r/w also komplett offen "eingelegt". Standard ist da normal vrw wo er am Ende fragt, ob man das atr aktualisieren möchte.

Fahre jetzt zur Arbeit. Heute Abend kann ich mit code dienen.

LarsImNetz schrieb: Du hast vergessen ICBLEN auf die Länge des Dateinamens zu setzen (ohne das eol) also 9.

LG Lars

OK, das teste ich gleich mal. Komisch, dass das beim Öffnen zum Lesen scheinbar nicht stört.

Der Emulator ist es aber zu 100% nicht, da das Problem. Auch am 600XL da ist.

Auch habe ich den Kanal nach dem Öffnen zum Lesen wieder geschlossen😉

Edit: icblen setzen hat nichts gebracht.

Hier mal der Code mitsamt dem Hexcode, der erzeugt wird:

                ;------------
                .proc open_read
                ; Datei für Lesen (AUX1=4) auf Kanal 1 öffnen: open #1,4,0,"D:NAME"
                ; für Schreiben (AUX1=8) und Update (AUX2=12) genauso
   A2 10            ldx #kanal*16   ; Kanalnr. * 16 in X-Register setzen
   A9 03            lda #3
   9D 42 03         sta iccmd,x     ; CIO-Kommando 3 = Open
   A9 9D            lda #<fname
   9D 44 03         sta icadr,x     ; icadr muss auf fname ziegen
   A9 39            lda #>fname
   9D 45 03         sta icadr+1,x
   A9 04            lda #4          ; AUX1=4 für Open read (8 für write, 12 für update)
   9D 4A 03         sta icaux,x
   20 56 E4         jsr ciov        ; CIO aufrufen
   30 01            bmi error       ; Returncode prüfen (steht in Y und icsta)
   60               rts
            error
   8C C8 02         sty 712
   4C 6F 3A         jmp *
                ;   rts
                .endp
                ;------------
                .proc open_save
                ; Datei für Lesen (AUX1=4) auf Kanal 1 öffnen: open #1,4,0,"D:NAME"
                ; für Schreiben (AUX1=8) und Update (AUX2=12) genauso
   A2 10            ldx #kanal*16   ; Kanalnr. * 16 in X-Register setzen
   A9 03            lda #3
   9D 42 03         sta iccmd,x     ; CIO-Kommando 3 = Open
   A9 9D            lda #<fname
   9D 44 03         sta icadr,x     ; icadr muss auf fname ziegen
   A9 39            lda #>fname
   9D 45 03         sta icadr+1,x
   A9 08            lda #8          ; AUX1=4 für Open read (8 für write, 12 für update)
   9D 4A 03         sta icaux,x
   A9 09 8D 48 03       mva #9 iclen
   20 56 E4         jsr ciov        ; CIO aufrufen
   30 01            bmi error       ; Returncode prüfen (steht in Y und icsta)
   60               rts
            error
   C0 83            cpy #131
   F0 05            beq @+
   84 95            sty cbak
   4C C5 3A         jmp *
   60           @   rts
                .endp

open_read erzeugt keine Fehler, die Datei wird danach auch korrekt gelesen. Am close kann es auch nicht liegen, denn wenn ich open_save zuerst aufrufe, kommt auch immer der Fehler. Ich stehe also weiterhin auf dem Schlauch 🙄

 44 31 3A 53 43 4F 52 45 53 9B      fname   .by "D1:SCORES",eol         ;filename to operate with

Das steht direkt bei $399D.

Eine Diskette zum Testen erstelle ich dann morgen. Will nicht schon vor dem release ein Programm veröffentlichen... Zum Testen sollte ja eigentlich ein "dummy" Programm genügen.

Ich muss für heute Schluss machen. Morgen geht's wieder früh raus.

Ich habe aber eben nochmal das direkt bei Programmstart versucht - da ist wirklich nichts an Code vorher gestartet. Dort kommt Error 129 - selbst wenn ich vor open_save noch close_file starte:

;------------
    .proc close_file
; Kanal schließen
    ldx #kanal*16   ; Kanalnr. * 16 in X-Register setzen
    lda #12
    sta iccmd,x     ; CIO-Kommando 12 = Close
    jsr ciov
    bmi error       ; will man eigentlich nur beim Schreiben prüfen
    rts
error
    sty 712
    jmp *
;   rts
    .endp

uDOS hatte ich zuerst, jetzt DOS 2.5

JAC! schrieb: Du musst einfache Anführungszeichen nehmen.

Ja. Das hate ich auch schon mal. Aber ein schneller Test heute früh von dem Weg zur Arbeit, wo ich das zurück geändert habe, brachte den selben Fehler 🤔 Ich schaue aber später nochmal in Ruhe (wahrscheinlich erst morgen, da heute Abend nochmal Fußball ansteht), ob ich früh doch was falsch gem8 habe.

Dietrich schrieb: Ups, Error 129, bevor irgendwas passiert?! Da kommt mir ein Verdacht: Überschreibst du Page 3 (beim Laden)? Der Error 129 kommt, wenn $340,x (also $350 für Kanal #1) nicht $ff ist. Und Error 130, wenn der Bereich ab $31A überschrieben wird ...

Das klingt interessant. Aber mein Programm belegt extra keine Bereich unter $2000 mehr für DOS 2.5 (vorher hatte ich den screen und die pmg noch ab $1000.

Ha. ❗ Ich habe ja in page 0 meine ganzen zp-register... Ich schlacke die mal aus. Kann sein, dass ich zu weit gekommen bin. Ich nutze ja selber keinen stack, aber cio bestimmt... Vielleicht habe ich ja was, was garnicht mehr zp ist...

Ich habe eigentlich gerade per copy paste das Programm nur zum Testen der Routinen ohne alles andere drumherum bauen wollen...

Ja, was oll ich sagen - ich habe glaube ich - den Fehler gefunden. 😳 Schaut selbst:

data    .ds 11*4
;------------
fname   dta c'D1:SCORES'            ;filename to operate with
    .by eol
amount  .wo 49

Wenn man 49 Bytes lädt, aber nur 44 Bytes Platz reserviert, könnte das zu Problemen führen, wenn direkt danach irgendwas im Speicher steht... Ja, was steht denn da? Richtig "D1:SCORES" 😂 🙄 Klar, dass das Device nicht existiert, wenn man dann später speichern möchte. 😁

So, nun habe ich es auch ausgiebig am "lebenden Objekt" getestet. Die Funktion funktioniert. Vielen Dank für die viele Hilfe, auch wenn Ihr diesen Fehler wirklich nicht finden konntet 😂

As usual: The error sits just in front of the screen! 🙄